home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 June
/
64er_Magazin_87-06_1987_Markt__Technik_de_Side_A.d64
/
list 64 - gen.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
26 lines
5 rem ** list 64 - generator **
10 input"startadresse: (820) ";sa :rem startadresse
12 input"farbe woerter: (7) ";fw
14 input"farbe strings: (5) ";fs
20 for x=0 to 184:read q:poke sa+x,q:next
22 poke sa+102,fw:poke sa+170,fs
25 if sa<>820 then hb=int((sa+15)/256):lb=(sa+15)-hb*256:pokesa+1,lb:pokesa+3,hb
30 print"abspeichern (j) ?"
40 get ta$:if ta$="" then 40
50 if ta$<>"j" then 95
60 open 1,8,2,"list 64"+str$(sa)+",p,w"
70 sh=int(sa/256):sl=sa-sh*256
80 print#1,chr$(sl);:print#1,chr$(sh);
90 for x=0 to 184:print#1,chr$(peek(sa+x));:next:close1
95 print"startadresse: "sa:sys sa:end
100 data169,67,160,3,141,6,3,140,7,3,169,0,133,247,96,72,165,203,201,60,240
110 data250,201,57,208,14,230,247,169,1,37,247,133,247,165,203,201,57,240
120 data250,165,247,208,4,104,76,26,167,173,134,2,133,2,192,4,208,14,169
130 data32,166,211,224,6,240,6,232,32,71,171,208,246,104,16,60,201,255,240
140 data56,36,15,48,52,56,233,127,170,132,73,160,255,202,240,8,200,185,158
150 data160,16,250,48,245,169,7,141,134,2,200,185,158,160,48,5,32,71,171
160 data208,245,164,73,41,127,32,71,171,72,169,32,32,71,171,104,24,144,43
170 data201,34,240,6,166,15,224,1,208,25,201,58,208,15,72,32,215,170,169
180 data32,162,6,32,71,171,202,208,250,104,32,71,171,24,144,13,162,5,142
190 data134,2,32,71,171,166,2,142,134,2,76,246,166